<%

Function mapeamento(nome_pasta, total)

		dim fs,fo,x, pastalocal, FSO, principal, arq	, dirtowalk	
	
		dirtowalk = nome_pasta		
		
		Set FSO = Server.CreateObject("Scripting.FileSystemObject")
		Set principal = FSO.GetFolder(server.mappath(dirtowalk)) ' coloque a pasta principal
		Set arquivos = principal.Files


		For each arq in arquivos
				nomes_arquivos(total) = dirtowalk&"/"&arq.name
				total=total+1
		next
		


		set fs=Server.CreateObject("Scripting.FileSystemObject")

		loc= Server.MapPath(dirtowalk)
		set fo=fs.GetFolder(loc)
		for each x in fo.SubFolders	
			total = mapeamento(dirtowalk&"/"&x.Name, total)
		Next
		
		set fo=nothing
		set fs=nothing
		set FSO=nothing


		mapeamento = total

End Function

DIM nomes_arquivos(10000)

dirtowalk = split(Request.ServerVariables("script_name"),"/")
nome_raiz = "/"&dirtowalk(1)

total = (mapeamento(nome_raiz, 0))


Function info_arquivo(nomes_arquivo)
	nomes_semraiz = replace(nomes_arquivo, nome_raiz&"/", "")
	nome_separado = split(nomes_semraiz,"/")
	partes = Ubound(nome_separado)
	nome_pasta=""
	for j=0 to partes-1
		nome_pasta=nome_pasta&"/"&nome_separado(j)
	next
	if nome_pasta="" then nome_pasta="/"
	nome_arquivo = nome_separado(partes)
  response.write "Pasta: " &nome_pasta & " - - Arquivo:" & nome_arquivo & "<br>"

End Function


Dim ProcuraString, ProcuraChar, MinhaPos



procura="Function "

for i=0 to total-1
info_arquivo(nomes_arquivos(i))

set confile = createObject("scripting.filesystemobject")
set fich = confile.OpenTextFile(server.mappath(nomes_arquivos(i)))

Do while fich.AtEndOfStream=False

Linha=fich.ReadLine()

Linha_=Left(Linha, 15)
if replace(Linha_,procura,"")<>Linha_ then


posInicial = InStr(Linha, procura) + len(procura)
posFinal = InStr(Linha, "(")
nome_funcao = Mid(Linha, posInicial, posFinal-posInicial)
response.Write("  -  "&nome_funcao&"<br>")
posFinal2 = InStr(Linha, ")")-1
response.Write("  -  -  -  Entradas: "&Mid(Linha, posFinal+1, posFinal2-posFinal)&"<br>")

End If


Loop







fich.Close

next
%>